home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #177 (1992)(Rhein-Sieg-Soft).zip / Franz PD Disk #177 (1992)(Rhein-Sieg-Soft).adf / Warenhandelskalk. / Warenhandelskalk.mod < prev    next >
Text File  |  1992-06-14  |  4KB  |  79 lines
  1.  
  2. (* Warenhandelskalkulation @ 1992 by Matthias Gutt, Kantstr. 16, W-2120 Lüneburg
  3.    Ein Programm für den kaufmännischen Bereich *)
  4.    
  5.    
  6. MODULE Warenhandelskalk;
  7. FROM SYSTEM IMPORT ADR;
  8. FROM RealInOut IMPORT ReadReal,WriteReal;
  9. FROM InOut IMPORT WriteLn,WriteString;
  10.  
  11.  
  12.  
  13. VAR
  14.  Nettomenge,Stueckpreis,Einkaufspreis,Liefererrabatt,Zieleinkaufspreis: REAL;
  15.  Liefererskonto,Bareinkaufspreis,Bezugskosten,Bezugspreis,HKZ: REAL;
  16.  Selbstkosten,Gewinnzuschlag,Barverkaufspreis,Kundenskonto: REAL;
  17.  Vertreterprovision,Zielverkaufspreis,Hundert: REAL;
  18.  Kundenrabatt,Verkaufspreis,Umsatzsteuer,Ladenverkaufspreis: REAL;
  19.  
  20.  BEGIN
  21.   WriteLn;
  22.   WriteString("Warenhandelskalkulation @ 1992 by Matthias Gutt, Kantstr.16");
  23.   WriteString("W-2120 Lüneburg ");
  24.   WriteLn;
  25.   WriteString("Nettomenge der Ware (Stückzahl):");ReadReal(Nettomenge);
  26.   WriteString("Stückpreis der Ware (DM)       :");ReadReal(Stueckpreis);
  27.   Einkaufspreis:=Nettomenge*Stueckpreis;
  28.   WriteString("Einkaufspreis                  :");WriteReal(Einkaufspreis,3,4);WriteString("DM");
  29.   WriteLn;
  30.   WriteString("Liefererrabatt (%)             :");ReadReal(Liefererrabatt);
  31.   Liefererrabatt:=Einkaufspreis*Liefererrabatt/100.0;
  32.   Zieleinkaufspreis:=Einkaufspreis-Liefererrabatt;
  33.   WriteString("Zieleinkaufspreis              :");WriteReal(Zieleinkaufspreis,3,4);WriteString 
  34. ("DM");
  35.   WriteLn;
  36.   WriteString("Liefererskonto (%)             :");ReadReal(Liefererskonto);
  37.   Liefererskonto:=Zieleinkaufspreis*Liefererskonto/100.0;
  38.   Bareinkaufspreis:=Zieleinkaufspreis-Liefererskonto;
  39.   WriteString("Bareinkaufspreis               :");WriteReal(Bareinkaufspreis,3,4);WriteString
  40. ("DM");
  41.   WriteLn;
  42.   WriteString("Bezugskosten                   :");ReadReal(Bezugskosten);
  43.   Bezugspreis:=Bareinkaufspreis+Bezugskosten;
  44.   WriteString("Bezugspreis                    :");WriteReal(Bezugspreis,3,4);WriteString("DM");
  45.   WriteLn;
  46.   WriteString("HKZ (%)                        :");ReadReal(HKZ);
  47.   HKZ:=Bezugspreis*HKZ/100.0;
  48.   Selbstkosten:=Bezugspreis+HKZ;
  49.   WriteString("Selbstkosten                   :");WriteReal(Selbstkosten,3,4);WriteString("DM");
  50.   WriteLn;
  51.   WriteString("Gewinnzuschlag (%)             :");ReadReal(Gewinnzuschlag);
  52.   Gewinnzuschlag:=Selbstkosten*Gewinnzuschlag/100.0;
  53.   Barverkaufspreis:=Selbstkosten+Gewinnzuschlag;
  54.   WriteString("Barverkaufspreis               :");WriteReal(Barverkaufspreis,3,4);WriteString
  55. ("DM");
  56.   WriteLn; 
  57.   WriteString("Kundenskonto(%)                :");ReadReal(Kundenskonto);
  58.   WriteString("Vertreterprovision(%)          :");ReadReal(Vertreterprovision);
  59.   Kundenskonto:=(Barverkaufspreis*Kundenskonto)/(100.0-(Kundenskonto+Vertreterprovision));
  60.   Vertreterprovision:=(Barverkaufspreis*Vertreterprovision)/(100.0-(Kundenskonto+Vertreterprovision));
  61.   Zielverkaufspreis:=Barverkaufspreis+(Kundenskonto+Vertreterprovision);
  62.   WriteString("Zielverkaufspreis              :");WriteReal(Zielverkaufspreis,3,4);WriteString
  63. ("DM");
  64.   WriteLn;
  65.   WriteString("Kundenrabatt(%)                :");ReadReal(Kundenrabatt);
  66.   Hundert:=100.0-Kundenrabatt;
  67.   Kundenrabatt:=Zielverkaufspreis*Kundenrabatt/Hundert;
  68.   Verkaufspreis:=Zielverkaufspreis+Kundenrabatt;
  69.   WriteString("Verkaufspreis                  :");WriteReal(Verkaufspreis,3,4);WriteString("DM");
  70.   WriteLn;
  71.   WriteString("Umsatzsteuer (%)               :");ReadReal(Umsatzsteuer);
  72.   Umsatzsteuer:=Verkaufspreis*Umsatzsteuer/100.0;
  73.   Ladenverkaufspreis:=Verkaufspreis+Umsatzsteuer;
  74.   WriteString("Ladenverkaufspreis             :");WriteReal(Ladenverkaufspreis,3,4);WriteString
  75. ("DM");
  76.  
  77. END Warenhandelskalk.
  78.    
  79.